//energycr.txt - A crystal which restores energy when character uses it.

beginobjectscript;

variables;
short disarmed = 0;
short exploded = 0;
short near_char;
short r1;
short cur_tick;

body;

beginstate INIT_STATE;

	break;

beginstate DEAD_STATE;

break;

beginstate START_STATE; 

break;

beginstate 12; // exploding/used
	if (am_i_doing_action() == FALSE) {
		kill_object(ME,0);
		}
break;

beginstate USE_STATE;
	r1 = get_ran(8,1,6);
	restore_energy_nearby(r1,r1,2,2);
	pc_heard_sound(100);
	run_object_animation(6,0,70);
		
	set_state(12);
break;